﻿Imports DTO
Imports BUS
Public Class UserControlTiepNhanNhanVien

    Private Sub UserControlTiepNhanNhanVien_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim cvBUS As New ChucVuBUS()
        'Dim dt As New DataTable()
        'dt = cvBUS.LoatDanhSachChucVu()
        'cbbChucVu.DataSource = dt

        'cbbChucVu.DisplayMember = "TenChucVu"
        'cbbChucVu.ValueMember = "MaChucVu"
        'cbbChucVu.Text = dt.Rows(1)("TenChucVu")
    End Sub


    Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click
        Dim str As String
        If txtIDNhanVien.Text.Length = 0 Then
            str += "ID Nhan Viên không được bỏ trống" & vbCrLf
        End If
        If txtMatKhau.Text.Length = 0 Then
            str += "Mật khẩu không được bỏ trống" & vbCrLf
        End If
        If txtTenNhanVien.Text.Length = 0 Then
            str += "Tên nhân viên không được bỏ trống" & vbCrLf
        End If
        If txtDienThoai.Text.Length = 0 Then
            str += "Điện thoại kohong được bỏ trống" & vbCrLf
        End If
        If txtDiaChi.Text.Length = 0 Then
            str += "Địa chỉ không được bỏ trống" & vbCrLf
        End If
        If str IsNot Nothing Then
            MessageBox.Show(str)
        Else
            Dim nvDTO As New NhanVienDTO()
            nvDTO.IDNhanVien = txtIDNhanVien.Text
            nvDTO.MatKhau = txtMatKhau.Text
            nvDTO.TenNhanVien = txtTenNhanVien.Text
            nvDTO.DiaChi = txtDiaChi.Text
            nvDTO.DienThoai = txtDienThoai.Text
            'Dim cvDTO As New ChucVuDTO()
            'cvDTO = cbbChucVu.SelectedItem
            nvDTO.MaChucVu = cbbChucVu.SelectedValue
            nvDTO.NgaySinh = dtpNgaySinh.Value
            Dim nvBUS As New NhanVienBUS()
            Dim kq As Integer = nvBUS.ThemNhanVien(nvDTO)
            If kq = 1 Then
                MessageBox.Show("Đã thêm một nhân viên")
            Else
                MessageBox.Show("Thêm nhân viên thất bại")
            End If
        End If
    End Sub
End Class
